Mesolore/Mesolore - Disc 2.iso/mac/data/Nuttall.dir/00001_Script_MovieScript 1

Text File | 2001-01-30 | 8KB | 350 lines

global gretracelist,preRo, preRx, preCdx, cdxDestList, cdxScroll, cdxNew, MNDestList, cdxLookupList, cdxLookupIdx, searchList, searchAttrLn, foundNamesLn, findList, searchRtn

Global gShowBalloons, gShowText, gShowOrder, gIndex,glastPic,gshowSearch,gShowLeftPanel
---utilities
on createCrossIndex
  holder = ""
  repeat with x = 767 to 1985
    go frame x
    set temp = the memberNUm of sprite 30
    if temp <> 0 then
      put the frame & "," & temp & RETURN after holder
    end if
  end repeat
  put holder into field "crossRef"
end


on setFieldSize
  beginRecording
    repeat with x = 767 to 1985
      go frame x
      if the type of the member of sprite 30 =#field then



        --        set the boxType of member which = #fixed
        set the rect of the member of sprite 30 = rect(0, 0, 140, 280)
        set the locv of sprite 30 = 118
          set the loch of sprite 30 = 21
      end if
    end repeat
  endRecording
  beep
end


on createindex
  set templist = ""
  put "" into field "index"
  repeat with x = 461 to 959

    if the mousedown then
      if the controldown then
        put templist into field "index"
        abort
      else
        put x
      end if
    end if
    put indexLine( x ) into line (x - 460) of templist

  end repeat

  put templist into field "index"
end

on indexLine which
  set which="%"&which
  set temp = field "balloons1"
  if temp contains which then
    set howMany = the number of lines in temp
    repeat with x = 1 to howMany
      if line x of temp contains which then
        return "1,"&x
        exit repeat
      end if
    end repeat

  else
    set temp = field "balloons2"
    set howMany = the number of lines in temp
    repeat with x = 1 to howMany
      if line x of temp contains which then
        return "2,"&x
        exit repeat
      end if
    end repeat
  end if
end

--
--on setupMIAW windowName, windowFile, wType
--  set the fileName of window windowName to windowFile
--  if wtype= "void" then
--    set the windowType of window windowName to 2
--  else
--    set the windowType of window windowName to wType
--  end if
--end setupMIAW


on setTextRow
  set x = value(char 2 to 3 of the framelabel)
  if x = 19 then
    if item 1 of the framelabel = "n19a" then
      set whLine = value(item 1 of line (x -13) of field "textWindowlist")
    else
      set whLine = value(item 2 of line (x -13) of field "textWindowlist")
    end if
  else
    set whLine = value(line (x -13) of field "textWindowlist")
  end if
  tell window "Nuttall Text" to set where = getAt(charPosToLoc(member "info", whLine),2)  - the lineheight of  member "info"
  tell window "Nuttall Text" to  sendSprite(16,#CustomScrollbar_SetScroll,where)
end



---Leftlabs panel

on showleftPanel
  if sprite(90).locH > 0 then
    gShowLeftPanel=false
    hideSprite [56,90,91,92,93,94,115]
    repeat with x = 95 to 99
      set the visible of sprite x = FALSE
    end repeat
  else
    gShowLeftPanel=TRUE
    showSprite [56,90,91,92,93,94,115]
    repeat with x = 95 to 99
      set the visible of sprite x = TRUE
    end repeat
  end if
  unroll 56
  updatestage
end

on checkRollLeft

  if gshowBalloons then
    set the member of sprite(92) = "showballoons_x"
  else
    set the member of sprite(92) = "showballoons_n"
  end if
  if gShowText then
    set the member of sprite(94) = "ShowText_x"
  else
    set the member of sprite(94) = "ShowText_n"
  end if
  if gShowOrder then
    set the member of sprite(93) = "ShowOrder_x"
  else
    set the member of sprite(93) = "ShowOrder_n"
  end if
  repeat with x = 91 to 94
    if rollover(x) then
      roll x
    else
      unroll x
    end if
  end repeat
  go the frame
end

--- right labs panel

on checkRollPanel()
  checkRollLeft
  rolled = FALSE
  repeat with x in [90,102,103,104,105,106,107,108,109]
    if rollover(x) then
      roll x
      rolled = TRUE
    else
      unroll x
    end if
  end repeat
  return rolled
end

on showPanel
  if sprite(103).locH > 0 then
    hideSprite [103,104,105,106,107,108,109]
  else
    showSprite [103,104,105,106,107,108,109]
  end if
end





on setcursor a,b
  if the machinetype = 256 then
    cursor [value(a),value(a)+1]
  else
    cursor b
  end if
end

--- labs balloons, text, order
on showBalloons
  set glastPic = ""
  set gShowBalloons= not gShowBalloons
  set the visible of sprite 60=FALSE
  set the visible of sprite 61=FALSE
  updatestage
end

on showSearch
  set gshowSearch= not gshowSearch
  if gshowSearch = TRUE then
    open window "Nuttall Search"
    set the windowtype of window "Nuttall Search" = 4
  else
    close window "Nuttall Search"
  end if
end

on SearchLocate which
  temp = field "crossRef"
  set hMany = the number of lines in temp
  repeat with x = 1 to hMany
    if item 2 of line x of temp = which then
      sprite(60).visible = false
      sprite(61).visible = false
      goto item 1 of line x of temp
      exit repeat
    end if
  end repeat

end

on showText
  set gshowText= not gshowText
  if gshowText = TRUE then
    open window "Nuttall Text"
    set the windowtype of window "Nuttall Text" = 4
  else
    close window "Nuttall Text"
  end if

end

on showOrder
  set gShowOrder = not gShowOrder
  if gShowOrder = TRUE then
    repeat with x = 4 to 7
      set the visible of sprite x = TRUE
    end repeat
  else
    repeat with x = 4 to 7
      set the visible of sprite x = FALSE
    end repeat
  end if
  updatestage
end

--- prepare, start, stop movie
on prepareMovie
  hidesprite [100]
  hidesprite [101]

  if voidp(gShowBalloons) then gShowBalloons = FALSE
  gShowText = FALSE
  gShowSearch = FALSE
  if voidp(gShowOrder) then  gShowOrder = FALSE
  if not gShowOrder then
    repeat with x = 5 to 7
      set the visible of sprite x = FALSE
    end repeat
  end if
  puppetsprite 60, TRUE
  puppetsprite 61, TRUE

  updatestage
  if gRetraceList = void then set gRetraceList = ["Home*Intro"]
  set the visible of sprite 54 = false
  showPanel
  if not gShowLeftPanel = true then
    showLeftPanel
  end if
  set the visible of sprite 61 = false

  cursor 4
  --    set hMany = the number of members of castLib 2
  --    repeat with x = 1 to hMany
  --      if the type of member x of castlib 3 = #field then
  --        set the scrolltop of member x of castlib 3= 0
  --      end if
  --    end repeat
  --    updatestage
  cursor 0
  set gIndex = field "Index"
end



on StartMovie




  set MNDestList = value(field "MNScriptTxt")

end





on GenEnterCdx
  set cdxNew = FALSE
end

on GenLeaveCdx
  set the visible of sprite 60 = FALSE
  set the visible of sprite 61 = FALSE
end

on GoCdxMN action
  if action <> "Nothing" then
    GenLeaveCdx
    if word 1 of action = "go" then  --- skb
      put "goto" into  word 1 of action --- skb
    end if--- skb

    do(action)

  end if
end


on GoMNCdx dest
  if gShowOrder = FALSE then
    repeat with x = 4 to 7
      set the visible of sprite x = FALSE
    end repeat
  end if

  --  SetSearch("off", "visible", FALSE)
  goto dest
  GenEnterCdx
end



on GoMNMN frLabel, sprNum
  set btnList = getAProp(MNDestList, frLabel)
  set btnDest = getAProp(btnList, sprNum)
  if btnDest contains ",MR0" then
    beep
  else
    goto btnDest
  end if
end